64'er 1989 June/64er_Magazin_89-06_1989_Markt__Technik_de_Side_A.d64/script f8

Commodore BASIC | 2022-10-26 | 2KB | 21 lines

1 data120,169,126,141,20,3,169,151,32,210,255,169,147,32,210,255,162,1,142,137
2 data51,202,142,32,208,142,33,208,142,138,51,142,136,51,189,128,51,157,8,48,169
3 data0,157,0,48,157,0,49,232,224,8,208,237,169,11,141,34,208,169,15,141,35,208
4 data169,28,141,24,208,173,22,208,41,247,9,16,141,22,208,32,135,234,165,197,201
5 data60,208,31,169,147,32,210,255,173,22,208,41,232,9,8,141,22,208,120,169,49
6 data141,20,3,169,21,141,24,208,169,0,133,198,96,173,18,208,201,6,176,249,173
7 data17,208,41,128,208,242,173,22,208,41,248,13,138,51,141,22,208,173,18,208
8 data201,200,144,249,173,138,51,56,233,3,141,138,51,144,3,76,78,50,173,138,51
9 data41,7,141,138,51,162,0,189,65,5,157,64,5,189,105,5,157,104,5,189,145,5,157
10 data144,5,189,185,5,157,184,5,189,225,5,157,224,5,189,9,6,157,8,6,189,49,6
11 data157,48,6,232,224,39,208,209,78,137,51,173,137,51,201,0,240,3,76,37,51,169
12 data128,141,137,51,174,136,51,189,0,56,201,147,208,8,162,0,142,136,51,189,0
13 data56,201,64,144,3,56,233,64,133,250,169,0,133,251,24,6,250,38,251,6,250,38
14 data251,6,250,38,251,24,165,251,105,208,133,251,238,136,51,160,0,162,0,173,14
15 data220,41,254,141,14,220,165,1,41,251,133,1,169,103,133,252,169,5,133,253
16 data177,250,45,137,51,208,13,140,139,51,160,0,145,252,172,139,51,76,95,51,169
17 data1,140,139,51,160,0,145,252,172,139,51,24,165,252,105,40,133,252,144,2,230
18 data253,200,192,8,208,208,165,1,9,4,133,1,173,14,220,9,1,141,14,220,76,78,50
19 data170,169,189,189,189,189,149,85:fori=0to391:readx:poke12800+i,x:next
20 a$="script f8    [147]":fori=1tolen(a$):poke14335+i,asc(mid$(a$,i)):next:sys12800